home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok29.lha / Disky / TestDisky.modO < prev    next >
Text File  |  1993-08-15  |  1KB  |  38 lines
  1. (* -------------------------------------------------------------------------
  2.   :Program.       TestDisky
  3.   :Author.        Kai Bolay
  4.   :Address.       Hoffmannstraße 168, 7250 Leonberg 1
  5.   :Phone.         07152/22135
  6.   :ShortCut.      [kai]
  7.   :Version.       1.0
  8.   :Date.          18-May-89
  9.   :Copyright.     INTERN
  10.   :Language.      Modula-2
  11.   :Translator.    M2Amiga 3.2d
  12.   :Imports.       FileRequest [kai], IntuiStruct1.3 [bne]
  13.   :Contents.      Program to test FieRequest
  14. ------------------------------------------------------------------------- *)
  15.  
  16. MODULE TestDisky;
  17.  
  18. FROM SYSTEM      IMPORT ADR;
  19. FROM FileRequest IMPORT DiskyInfo, DiskyFlags, DiskyFlagSet, DiskyResult,
  20.                         Disky;
  21. FROM Terminal    IMPORT WriteString;
  22.  
  23. VAR DI : DiskyInfo;
  24.     
  25. BEGIN
  26.    WITH DI DO
  27.       title        := ADR ("FileRequest-Demo");
  28.       dir          := "SYS:";
  29.       file         := "Demo-File";
  30.       flags        := DiskyFlagSet {};
  31.    END; (* WITH *)
  32.    IF (Disky (DI) # DiskyOK) THEN
  33.       WriteString ("Cancel / Error");
  34.    ELSE
  35.       WriteString (DI.path);
  36.    END; (* IF *)
  37. END TestDisky.
  38.